home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO044.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  365b  |  11 lines
  1. 1  REM  To go on DOS 3.3 partition
  2. 2  REM  
  3. 5  PRINT : PRINT  CHR$(4)"CATALOG": PRINT 
  4. 10  FOR I = 700 TO 700 +29
  5. 20  READ BYTE: POKE I,BYTE
  6. 30  NEXT I
  7. 40  CALL 700
  8. 50  PRINT "Number of free sectors: ";
  9. 60  PRINT  PEEK(6) +256 * PEEK(7)
  10. 70  NEW : END 
  11. 100  DATA 169,0,133,6,133,7,173,239,179,10,10,168,185,242,179,10,144,6,230,6,208,249,230,7,208,245,136,208,239,96